home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
earkit
/
browser
/
ibrowsescripts
/
rexx
/
onlinewin.ibrx
< prev
next >
Wrap
Text File
|
1998-05-24
|
641b
|
24 lines
/* Onlinewin.ibrx needed as a seperate task as miami doesn`t return "ONLINE" before it is */
OPTIONS RESULTS
ok=open('OnlineMiami','CON:60/100/100/22/OnlineMiami/')
a=1
cleft='08'x
call writeln 'OnlineMiami',' Hold on!'
call writeln 'OnlineMiami',' Miami is'
call writech 'OnlineMiami','Connecting'
ADDRESS "COMMAND" "wait 1"
DO FOREVER
IF ~SHOW('Ports','MIAMI.1') THEN exit
ADDRESS 'MIAMI.1' 'ISONLINE'
result=rc
IF result then exit
call writech 'OnlineMiami',cleft
a=a+1
ADDRESS "COMMAND" "wait 1"
If a=11 then Do
a=1
call writech 'OnlineMiami','Connecting'
END
END